home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / WAND.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.0 KB  |  37 lines
  1. 100  '*******************************************
  2. 110  '**               WAND                    **
  3. 120  '**                                       **
  4. 130  '**  VERSION 1.1            JULY 13,1982  **
  5. 140  '*******************************************
  6. 150  A = 320:B = 100:C = 320:D = 150:L = 1
  7. 160  SCREEN 2:CLS:KEY OFF
  8. 170  OPTION BASE 1
  9. 180  DIM A1 (6,4)
  10. 190  A1 (L,1) = A
  11. 200  A1 (L,2) = B
  12. 210  A1 (L,3) = C
  13. 220  A1 (L,4) = D
  14. 230  LINE (A,B)-(C,D),1
  15. 240  N1 = L
  16. 250  L = (L + 1) MOD 7:IF L = 0 THEN L = 1
  17. 260  N2 = L
  18. 270  LINE (A1 (L,1),A1 (L,2))-(A1 (L,3),A1 (L,4)),0
  19. 280  A = A + RND * 100 - 51
  20. 290  IF A >= 639 THEN A = 639
  21. 300  IF A <= 0 THEN A = 0
  22. 310  B = B + RND * 30 - 15.5
  23. 320  IF B >= 199 THEN B = 199
  24. 330  IF B <= 0 THEN B = 0
  25. 340  C = C + RND * 30 - 15
  26. 350  IF A > C AND A - C > 100 THEN C = A - 100
  27. 360  IF C > A AND C - A > 100 THEN C = A + 100
  28. 370  IF C >= 639 THEN C = 639
  29. 380  IF C <= 0 THEN C = 0
  30. 390  D = D + RND * 30 - 15
  31. 400  IF B > D AND B - D > 75 THEN D = B - 75
  32. 410  IF D > B AND D - B > 75 THEN D = B + 75
  33. 420  IF D >= 199 THEN D = 199
  34. 430  IF D <= 0 THEN D = 0
  35. 440  SOUND ABS(LOG(ABS(A-C)))*100+37,1
  36. 450  GOTO 190
  37.